IncludeVerInfo=1\r
AutoIncBuild=0\r
MajorVer=0\r
-MinorVer=1\r
+MinorVer=2\r
Release=0\r
Build=0\r
Debug=0\r
-PreRelease=0\r
+PreRelease=1\r
Special=0\r
Private=0\r
DLL=0\r
-Locale=1031\r
+Locale=1033\r
CodePage=1252\r
[Version Info Keys]\r
-CompanyName=\r
-FileDescription=GPSBabel Frontend\r
-FileVersion=0.1.0.0\r
-InternalName=\r
-LegalCopyright=\r
+CompanyName=GPSBabel Makers\r
+FileDescription=GPSBabel Windows Frontend\r
+FileVersion=0.2.0.0\r
+InternalName=GPSBabelGUI-2\r
+LegalCopyright=(C) 2005 Olaf Klein (O.B.Klein@T-Online.de)\r
LegalTrademarks=\r
-OriginalFilename=\r
+OriginalFilename=GPSBabelGUI2.exe\r
ProductName=GPSBabel\r
-ProductVersion=1.0.0.0\r
+ProductVersion=1.2.7\r
Comments=\r
[HistoryLists\hlConditionals]\r
Count=1\r
uses\r
gnugettextD4,\r
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,\r
- StdCtrls, Buttons, ExtCtrls,\r
+ StdCtrls, Buttons, ExtCtrls, ShellApi,\r
common;\r
\r
type\r
TfrmAbout = class(TForm)\r
pnClient: TPanel;\r
- Image1: TImage;\r
pnBottom: TPanel;\r
- BitBtn1: TBitBtn;\r
- StaticText3: TStaticText;\r
- Panel1: TPanel;\r
- StaticText1: TStaticText;\r
- StaticText2: TStaticText;\r
- Image2: TImage;\r
- StaticText4: TStaticText;\r
- StaticText5: TStaticText;\r
- StaticText6: TStaticText;\r
- StaticText7: TStaticText;\r
- StaticText8: TStaticText;\r
+ btnOK: TBitBtn;\r
+ pnCenter: TPanel;\r
+ stDescription: TStaticText;\r
+ imgBabelIcon: TImage;\r
+ stLicense: TStaticText;\r
+ lbHint1: TLabel;\r
+ lbVersion: TLabel;\r
+ lbxTranslators: TListBox;\r
+ lbTranslators: TLabel;\r
+ lbURL: TLabel;\r
+ lbCopyRight: TLabel;\r
+ lbMoreInfo: TLabel;\r
+ lbSFURL: TLabel;\r
procedure FormCreate(Sender: TObject);\r
+ procedure lbURLMouseMove(Sender: TObject; Shift: TShiftState; X,\r
+ Y: Integer);\r
+ procedure pnCenterMouseMove(Sender: TObject; Shift: TShiftState; X,\r
+ Y: Integer);\r
+ procedure lbURLClick(Sender: TObject);\r
private\r
{ Private declarations }\r
FTitle: string;\r
+ FFlag: Integer;\r
public\r
{ Public declarations }\r
end;\r
\r
uses\r
utils;\r
- \r
+\r
{$R *.DFM}\r
\r
procedure TfrmAbout.FormCreate(Sender: TObject);\r
begin\r
gnugettextD4.TranslateComponent(SELF);\r
FTitle := Caption;\r
- Caption := FTitle + ' GPSBabelGUI-2';\r
+ Caption := FTitle + ' ' + SGPSBabelTitle;\r
\r
+ lbVersion.Caption := _('Version') + ' ' + SGPSBabelGUIVersion;\r
FixStaticText(Self);\r
+\r
+ lbURL.Left := lbMoreInfo.Left + lbMoreInfo.Width + 4;\r
+ lbSFURL.Left := lbHint1.Left + lbHint1.Width + 4;\r
+ lbTranslators.Caption := lbTranslators.Caption + ':';\r
+\r
+ lbxTranslators.Items.Add(_('German by Olaf Klein'));\r
+ lbxTranslators.Items.Add(_('French by Lilian Morinon'));\r
+end;\r
+\r
+procedure TfrmAbout.lbURLMouseMove(Sender: TObject; Shift: TShiftState; X,\r
+ Y: Integer);\r
+begin\r
+ if (FFlag = 0) then\r
+ begin\r
+ FFlag := 1;\r
+ TLabel(Sender).Font.Color := clRed;\r
+ end;\r
+end;\r
+\r
+procedure TfrmAbout.pnCenterMouseMove(Sender: TObject; Shift: TShiftState; X,\r
+ Y: Integer);\r
+begin\r
+ if (FFlag = 1) then\r
+ begin\r
+ FFlag := 0;\r
+ lbURL.Font.Color := clBlue;\r
+ lbSFURL.Font.Color := clBlue;\r
+ end;\r
+end;\r
+\r
+procedure TfrmAbout.lbURLClick(Sender: TObject);\r
+var\r
+ url: string;\r
+begin\r
+ TLabel(Sender).Font.Color := clBlue;\r
+ url := 'http://' + TLabel(Sender).Caption;\r
+ ShellExecute(Self.Handle, 'open', PChar(url), nil, '', 0);\r
end;\r
\r
end.\r
uses\r
Windows, SysUtils, Classes, Messages;\r
\r
+resourcestring\r
+ SGPSBabelURL = 'http://www.gpsbabel.org';\r
+ SGPSBabelTitle = 'GPSBabelGUI-2';\r
+\r
+var\r
+ SGPSBabelGUIVersion: string;\r
+ CFixedFileinfo: TVSFixedFileInfo;\r
+\r
const\r
WM_STARTUP = WM_USER + 1;\r
\r
end;\r
end;\r
\r
+function GetFileVersion(const Filename: string): string;\r
+var\r
+ buff: PChar;\r
+ hdl: DWORD;\r
+ len: DWORD;\r
+ sub: PChar;\r
+ sublen: UINT;\r
+ fix: PVSFixedFileInfo;\r
+ i: Integer;\r
+begin\r
+ Result := '?.?';\r
+\r
+ FillChar(CFixedFileinfo, SizeOf(CFixedFileinfo), #0);\r
+\r
+ len := GetFileVersionInfoSize(PChar(Filename), hdl);\r
+ if not(len > 0) then exit;\r
+\r
+ GetMem(buff, len);\r
+ try\r
+\r
+ if not GetFileVersionInfo(PChar(FileName), 0, len, buff) then Exit;\r
+\r
+ fix := Pointer(buff);\r
+ i := len - SizeOf(fix^);\r
+ while (i > 0) do\r
+ begin\r
+ Dec(i);\r
+ if (fix.dwSignature = $feef04bd) then\r
+ begin\r
+ CFixedFileinfo := fix^;\r
+ Break;\r
+ end;\r
+ PChar(fix) := PChar(fix) + 1; \r
+ end;\r
+\r
+ if not VerQueryValue(buff, PChar('\\StringFileInfo\\040904E4\\FileVersion'),\r
+ Pointer(sub), sublen) then Exit;\r
+ if not(sublen > 0) then Exit;\r
+ Result := string(sub);\r
+ finally\r
+ FreeMem(buff);\r
+ end;\r
+end;\r
+ \r
initialization\r
\r
gpsbabel_exe := SysUtils.ExtractFilePath(ParamStr(0)) + 'gpsbabel.exe';\r
+ SGPSBabelGUIVersion := GetFileVersion(ParamStr(0));\r
\r
end.\r
begin\r
gnugettextD4.TranslateComponent(SELF);\r
\r
- Caption := Caption + _(' (Preview)');\r
+// VS_FF_DEBUG The file contains debugging information or is compiled with debugging features enabled.\r
+// VS_FF_INFOINFERRED The file's version structure was created dynamically;\r
+// therefore, some of the members in this structure may be empty or incorrect.\r
+// This flag should never be set in a file's VS_VERSION_INFO data.\r
+// VS_FF_PATCHED The file has been modified and is not identical to the original shipping file of the same version number.\r
+// VS_FF_PRERELEASE The file is a development version, not a commercially released product.\r
+// VS_FF_PRIVATEBUILD The file was not built using standard release procedures. If this flag is set,\r
+// the StringFileInfo structure should contain a PrivateBuild entry.\r
+// VS_FF_SPECIALBUILD The file was built by the original company using standard release procedures\r
+// but is a variation of the normal file of the same version number.\r
+// If this flag is set, the StringFileInfo structure should contain a SpecialBuild\r
+\r
+ if (CFixedFileinfo.dwFileFlags and VS_FF_PRERELEASE <> 0) then\r
+ Caption := Format('%s (%s)', [Caption, _('BETA')])\r
+ else if (CFixedFileinfo.dwFileFlags and VS_FF_PRIVATEBUILD <> 0) then\r
+ Caption := Format('%s (%s)', [Caption, _('Private release')])\r
+ else if (CFixedFileinfo.dwFileFlags and VS_FF_SPECIALBUILD <> 0) then\r
+ Caption := Format('%s (%s)', [Caption, _('Special release')]);\r
+\r
\r
FCaps := TCapabilities.Create;\r
\r
msgid ""\r
msgstr ""\r
"Project-Id-Version: PACKAGE VERSION\n"\r
-"POT-Creation-Date: 2005-09-30 03:39\n"\r
-"PO-Revision-Date: 2005-09-30 03:39\n"\r
+"POT-Creation-Date: 2005-10-01 00:49\n"\r
+"PO-Revision-Date: 2005-10-01 00:49\n"\r
"Last-Translator: Somebody <your.email@address.com>\n"\r
"MIME-Version: 1.0\n"\r
"Content-Type: text/plain; charset=UTF-8\n"\r
\r
#. frmAbout..Font.Name\r
#: about.dfm:12\r
-#. frmAbout..pnClient..Panel1..StaticText1..Font.Name\r
-#: about.dfm:125\r
-#. frmAbout..pnClient..Panel1..StaticText4..Font.Name\r
-#: about.dfm:154\r
-#. frmAbout..pnClient..Panel1..StaticText5..Font.Name\r
-#: about.dfm:168\r
-#. frmAbout..pnClient..Panel1..StaticText6..Font.Name\r
-#: about.dfm:182\r
+#. frmAbout..pnClient..pnCenter..lbURL..Font.Name\r
+#: about.dfm:100\r
+#. frmAbout..pnClient..pnCenter..lbSFURL..Font.Name\r
+#: about.dfm:131\r
+#. frmAbout..pnClient..pnCenter..stLicense..Font.Name\r
+#: about.dfm:166\r
#. frmFilter..Font.Name\r
#: filter.dfm:13\r
#. frmMain..Font.Name\r
msgid "MS Sans Serif"\r
msgstr ""\r
\r
-#. frmAbout..pnClient..StaticText3..Caption\r
-#: about.dfm:105\r
-msgid "... under construction"\r
+#. frmAbout..pnClient..pnCenter..lbHint1..Caption\r
+#: about.dfm:74\r
+msgid "This program is part of the GPSBabel project, hosted "\r
+"on"\r
msgstr ""\r
\r
-#. frmAbout..pnClient..Panel1..StaticText1..Caption\r
-#: about.dfm:121\r
-msgid "GPSBabelGUI-2:"\r
+#. frmAbout..pnClient..pnCenter..lbVersion..Caption\r
+#: about.dfm:82\r
+msgid "Version 0.2"\r
msgstr ""\r
\r
-#. frmAbout..pnClient..Panel1..StaticText2..Caption\r
-#: about.dfm:139\r
-msgid "The frontend for gpsbabel command line "\r
-"program"\r
+#. frmAbout..pnClient..pnCenter..lbTranslators..Caption\r
+#: about.dfm:89\r
+msgid "Translations"\r
+msgstr ""\r
+\r
+#. frmAbout..pnClient..pnCenter..lbURL..Caption\r
+#: about.dfm:96\r
+msgid "www.gpsbabel.org"\r
+msgstr ""\r
+\r
+#. frmAbout..pnClient..pnCenter..lbCopyRight..Caption\r
+#: about.dfm:112\r
+msgid "Copyright (C) 2005 Olaf Klein (O.B.Klein@T-Online.de)"\r
+msgstr ""\r
+\r
+#. frmAbout..pnClient..pnCenter..lbMoreInfo..Caption\r
+#: about.dfm:119\r
+msgid "Find more info at"\r
msgstr ""\r
\r
-#. frmAbout..pnClient..Panel1..StaticText4..Caption\r
-#: about.dfm:150\r
-msgid "Copyright:"\r
+#. frmAbout..pnClient..pnCenter..lbSFURL..Caption\r
+#: about.dfm:126\r
+msgid "SourceForge.net"\r
msgstr ""\r
\r
-#. frmAbout..pnClient..Panel1..StaticText5..Caption\r
-#: about.dfm:164\r
-msgid "Licence:"\r
+#. frmAbout..pnClient..pnCenter..stDescription..Caption\r
+#: about.dfm:147\r
+msgid "The frontend for gpsbabel command line "\r
+"program"\r
msgstr ""\r
\r
-#. frmAbout..pnClient..Panel1..StaticText6..Caption\r
-#: about.dfm:178\r
-msgid "Translations:"\r
+#. frmAbout..pnClient..pnCenter..stLicense..Caption\r
+#: about.dfm:161\r
+msgid "THIS SOFTWARE MAY ONLY BE LICENSED FREE OF "\r
+"CHARGE"\r
msgstr ""\r
\r
-#. frmAbout..pnClient..Panel1..StaticText7..Caption\r
-#: about.dfm:196\r
-msgid "Olaf Klein (O.B.Klein@T-Online.de)"\r
+#. frmAbout..pnClient..pnCenter..lbxTranslators....Items.Strings\r
+#: about.dfm:183\r
+msgid "German by Olaf Klein"\r
msgstr ""\r
\r
-#. frmAbout..pnClient..Panel1..StaticText8..Caption\r
-#: about.dfm:211\r
-msgid "Open Source"\r
+#. frmAbout..pnClient..pnCenter..lbxTranslators....Items.Strings\r
+#: about.dfm:184\r
+msgid "French by Lilian Morinon"\r
msgstr ""\r
\r
#. frmFilter..Caption\r
\r
#. frmMain..Caption\r
#: main.dfm:6\r
+#. Programmer's name for it: SGPSBabelTitle\r
+#: common.pas:28\r
msgid "GPSBabelGUI-2"\r
msgstr ""\r
\r
msgid "-"\r
msgstr ""\r
\r
+#: about.pas:76\r
+msgid "Version"\r
+msgstr ""\r
+\r
+#. Programmer's name for it: SGPSBabelURL\r
+#: common.pas:27\r
+msgid "http://www.gpsbabel.org"\r
+msgstr ""\r
+\r
#: filter.pas:159\r
msgid "Value (%s) out of range (%g to %g)!"\r
msgstr ""\r
msgid "Kilometer"\r
msgstr ""\r
\r
-#: main.pas:152\r
-msgid " (Preview)"\r
+#: main.pas:165\r
+msgid "BETA"\r
+msgstr ""\r
+\r
+#: main.pas:167\r
+msgid "Private release"\r
+msgstr ""\r
+\r
+#: main.pas:169\r
+msgid "Special release"\r
msgstr ""\r
\r
-#: main.pas:259\r
+#: main.pas:277\r
msgid "All files|*.*"\r
msgstr ""\r
\r
-#: main.pas:348\r
+#: main.pas:366\r
msgid "|All files|*.*"\r
msgstr ""\r
\r
-#: main.pas:389\r
+#: main.pas:407\r
msgid "File %s not found."\r
msgstr ""\r
\r
-#: main.pas:406\r
+#: main.pas:424\r
msgid "File \"%s\" exists ! Overwrite ?"\r
msgstr ""\r
\r
-#: main.pas:407\r
+#: main.pas:425\r
msgid "Warning"\r
msgstr ""\r
\r
-#: main.pas:432\r
+#: main.pas:450\r
msgid "Could not run \"gpsbabel.exe\"!"\r
msgstr ""\r
\r
-#: main.pas:441\r
+#: main.pas:459\r
msgid "Converted successfully from \"%s\" to "\r
"\"%s\"."\r
msgstr ""\r
\r
-#: main.pas:442\r
+#: main.pas:460\r
msgid "Success"\r
msgstr ""\r
\r
projects / gpsbabel.git / commitdiff